home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / printer / hwgpost / enumfonts.ps < prev    next >
Encoding:
Text File  |  1997-02-16  |  2.2 KB  |  97 lines
  1. %!
  2. %
  3. % $Id: enumfonts.ps 1.2 1996/05/12 12:31:57 heinz Exp $
  4. %
  5. % (C)1996 by Heinz Wrobel
  6. %
  7. % This file may not be modified!
  8. %
  9. % HWGPOST is dedicated to Joan Thuesen, a VIP in my life.
  10. %
  11. % HWGPOST is not PD or free!
  12. %
  13. % This is a HWGPOST specific PostScript program to scan the
  14. % PSFONTS: dir for all font files.
  15. % It will generate a suitable clip to be inserted into your
  16. % HWGPOSTResources file to make all your fonts available to
  17. % the interpreter.
  18. %
  19. % Run this file from the Shell via the 'post' frontend like
  20. %
  21. %   post init.ps enumfonts.ps >t:resourceclip
  22. %
  23. % Then edit the resource clip appropriately by sorting it,
  24. % removing duplicates and the fonts that you don't want.
  25. % Finally add it to your HWGPOSTResources file as needed.
  26. %
  27. % Fairly easy to set up your fonts now, isn't it?
  28. %
  29. % Heinz Wrobel
  30. % <heinz@hwg.muc.de>
  31. %
  32.  
  33. /ScanFontDir
  34. {
  35.     save
  36.     exch
  37.     /filenamebuf 256 string def
  38.     /fontnamebuf 256 string def
  39.     {
  40.         dup /filename exch def
  41.         @fontfile
  42.         {
  43.             dup token
  44.             {
  45.                 dup /FontName eq
  46.                 {
  47.                     pop
  48.                     dup token
  49.                     {
  50.                         fontnamebuf cvs /fontname exch def
  51.  
  52.                         fontname filename eq not
  53.                         {
  54.                             (\() print fontname print (\) \() print
  55.                             filename print
  56.                             (\) /Font @RegisterDiskResource\n) print
  57.                             flush
  58.                         }
  59.                         if
  60.  
  61.                         closefile
  62.                         exit
  63.                     }
  64.                     if
  65.                 }
  66.                 {
  67.                     % Is this in fact an AFM file?
  68.                     /StartFontMetrics eq
  69.                     {
  70.                         % Yes, skip it!
  71.                         closefile
  72.                         exit
  73.                     }
  74.                     if
  75.                 }
  76.                 ifelse
  77.             }
  78.             {
  79.                 % No token anymore, EOF!
  80.                 exit
  81.             }
  82.             ifelse
  83.         }
  84.         loop
  85.     }
  86.     filenamebuf
  87.     filenameforall
  88.  
  89.     restore
  90. } def
  91.  
  92. (%PSFONTS%*) ScanFontDir
  93.  
  94. %
  95. % EOF
  96. %
  97.